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SUBJECT: 36-bit PDP-8 Simulator ('TRIPLE') 


8-531A 


FROM: David M. Kristol 

DATE: 9 December 1971 


1. Introduction 

1.1 Multiple precision operations on a PDP-8 computer are 
usually a nuisance. The package that is currently available 
for 36-bit operations (DECUS 5/8-21) is not convenient to use. 
Taking the Floating Point Package as an example, a package was 
written ('TRIPLE') for the PDP-8 (8, 8/1, 8/L, 8/E) computer 
which simulates a 36-bit PDP-8/E computer without EAE. Exten¬ 
ded memory and non-extended memory versions are available. 
(References to extended memory operations do not apply to the 
non-extended memory version). 

1.2 Instructions are in normal PDP-8 format (12 bits). The 
AC, MQ, and operands for memory reference instructions are 
36-bit. In general, TRIPLE is designed so that conventional 
PAL coding will effect 36-bit operations. Of course, 3 words 
must be reserved for each operand. 

2. Operation 

2.1 Entry 

TRIPLE is entered with a JMS. The saved address becomes 
the simulator PC. The following other registers are set: 

Real Simulated 


Link —*■ Link 

AC > low order AC. High 24 bits set to J3. 

DF —> IF ( i.e♦ , IF set to calling field) 

-> DF 

2.2 Instructions 

2.2.1 The following are legal: 

2.2.1.1 All memory reference, including indirect addressing 

2.2.1.2 IOT's except special PDP-8/E: SKON, SRQ, GTF, RTF, CAF 

2.2.1.3 OPR's: all Group I & II, MQL, MQA, SWP, CLA. Micro¬ 
programming is permissable. 

2.2.2 Indirect addresses are strictly twelve bits. They may 
be considered to be the high order 12 bits of 36. The fol¬ 
lowing coding is necessary to increment a pointer through a 
36-bit operand array: 









TAD 

DCA 

STL 

I POINT 

TEMP 

IAC RAL 

/3 

TAD 

POINT-2 

/ADD TO ACTUAL POINT 

DCA 

POINT-2 

/SAVE 

ISZ 

COUNT 

/DONE? 

JMP 

♦ • • 

• 

• 

• 

/NO 


2.2.3 Accessing 12-bit literals is treacherous. For people 
with PS/8, there is a set of macros available for use with the 
8BAL macro processor (both in DECUS). These permit generation 
of 36-bit numeric, character, and symbolic literals. 

2.2.4 lOT's which normally would alter the AC ( e.g. , KRB) will 
only modify the low order 12 bits of TRIPLE's simulated AC. RDF 
and RIF perform a jam transfer, not an inclusive *0R'. 

2.2.5 OPR's may be micro-programmed using PDP-S/E sequencing 
to generate the following 36-bit constants in the AC: 


CLA 

STL 

RAL 

or CLA 

IAC 




1 

CLA 

STL 

RTL 

or CLA 

IAC CLL RAL 




2 

CLA 

IAC 

STL 

RAL 





3 

CLA 

IAC 

CLL 

RTL 





4 

CLA 

IAC 

STL 

RTL 



1 


6 

CLA 

CMA 




7777 

7777 

7777 

-1 

CLA 

CMA 

CLL 

RAL 


7777 

7777 

7776 

-2 

CLA 

CMA 

CLL 

RTL 


7777 

7777 

7775 

-3 

CLA 

STL 

RTR 



2000 

0000 

0000 


CLA 

STL 

RAR 



4000 

0000 

0000 


CLA 

IAC 

STL 

RTR 


6000 

0000 

0000 


CLA 

CMA 

CLL 

RAR 


3777 

7777 

7777 


CLA 

CMA 

CLL 

RTR 


5777 

7777 

7777 



2.3 Exit 

Simulation ends with the detection of a micro-programmed 
'HLT', control going to the next instruction (in normal PDP-8 
mode). Registers are set as follows: 
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Simulated Real 


Link -► Link 

low order AC -» AC 

IF * IF 

DF —> DF 

In addition, the simulated AC, MQ, and Link remain unchanged 
in their assigned locations. 

3. Special Locations 

3.1 Page 0 Storage 

TRIPLE uses locations 0 - 4 , 20-31 in its own field for 
temporary storage: 

4 simulated MA 

20-22 simulated AC 

23 simulated Link 

24-26 simulated MQ 

27-31 simulated MB (may be used outside TRIPLE, 
but will be destroyed by TRIPLE) 

3.2 Since debugging a simulated program could be a problem, 
TRIPLE provides a way to interrupt the simulation by setting 
two locations: 

2 12-bit breakpoint address 

3 field of breakpoint (00N0) 

■ A debugging program ( e.g. , ODT) should be used to set these 
locations, and a breakpoint at location 1, all in the same field 
as TRIPLE. When the breakpoint occurs, the instruction whose 
address is in locations 3 and 2 WILL NOT YET HAVE BEEN EXE¬ 
CUTED. The AC and Link print-out will be meaningless. Vari¬ 
ables and the simulated AC, MQ, and Link may be examined. The 
breakpoint may be proceeded from as usual, including multiple 
"proceeds". To change the breakpoint, change locations 2 and 
3. 


4. Space Requirements 

TRIPLE occupies 6400-7577 of any memory field, as well as 
the page 0 locations already mentioned. Its entry point is 
6400. 

Non-extended memory TRIPLE occupies 6600-7577 of any memory 
field, as well as the page 0 locations already mentioned. Its 
entry point is 6600. 
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5. Notes on the Example 

5.1 The following example illustrates the use of TRIPLE. The 
package will work in any memory field. The calling program 
must reside in the same field as the package when the non-ex- 
tended memory version is used (usually field 0 ). Otherwise, the 
Data Field must contain the calling field number (standard DEC 
extended memory linkage). 

5.2 The first three instructions call TRIPLE in field 2. The 
rest of the program is executed by the simulator. Note that 
standard PAL coding is used without difficulty. Labels of the 
form 'ZDDD' where D is a digit, are generated by 8BAL literal 
processing macros (section 2.2.3). 

5.3 The program accepts two 36-bit decimal numbers and types the 
72-bit product, 36-bit quotient, and 36-bit fractional remain- 
der in octal. Typed numbers are terminated by any non-digit. 

An example: 

6*4=j2T 00000000000000000000030 
000000000001.400000000000 

5.4 Note that the multiplication and division subroutines resem¬ 
ble their 12-bit equivalents very closely. 





/ TEST Jr TRIPLE PRECISION PAC 


PAL 8 


12/10/71 PAGE 1 


/ TEST OF TRIPLE PRECISION PACKAGE 


MQL = 7 421 
MQA=7501 
SWP=MQL !MQA 
TRI PLE= 6400 





*230 

020 0 

620 1 


CDF 

0 

3201 

6222 


CIF 

20 

0232 

47 7 7 * 


JMS 

TRIPLE 

0203 

6346 


TLS 


320 4 

4257 

LOOP, 

JMS 

GETNUM 

020 S 

3330 


o; 3J "* 

020 6 

0000 




020 7 

0252 




0210 

7421 


MQL 


321 1 

7 501 


M3 A 


0212 

3253 


DCA 

R1 

0213 

4257 


JM S 

GETNUM 

321 4 

0333 


a; 0 i "= 

021 5 

0000 




321 6 

027 5 




0217 

3235 


DCA 

R2 

0220 

1235 


TAD 

R2 

3221 

3223 


DCA 

. + 2 

322 2 

4776 ' 


JMS 

MULT 

3223 

0000 


ZBLOCK 3 

■32 2 6 

4775* 


JMS 

OUTPUT 

0227 

7 501 


MQA 


0230 

477 5* 


JMS 

OUTPUT 

0231 

All A' 


JMS 

CRLF 

3232 

1250 


TAD 

R1 

0233 

7421 


MQL 


023 4 

4773 ' 


JMS 

DVI 

323 5 

3030 

R2> 

2 BLOCK 3 

02 40 

7521 


SWP 


0241 

4775* 


JMS 

OUTPUT 

0242 

1314 

2331* 

TAD 

20 3 2 

3243 

4772* 


JMS 

TYJ 

0244 

1 23 5 


TAD 

R2 

024 5 

3250 


DCA 

R1 

0246 

7 521 


SWP 


•3247 

4773 ’ 


JMS 

DVI 

3250 

0000 

Rl* 

2BLOCK 3 

0253 

7521 


SWP 


02 5 4 

4775’ 


JMS 

OUTPUT 

3255 

4774 ’ 


JMS 

CRLF 

02 5 6 

5204 


JMP 

LOOP 

0257 

3300 

GETNUM* 



02 6 0 

7330 


CL A 

CLL 

3261 

37 71 • 


DCA 

TEMP 

0262 

47 70 ’ 

LOOP1* 

JMS 

TYI 


/GET 36-BIT DECIMAL * 

/TYPE AFTER LAST DIGIT 

/SAVE IN MQ 
/AND R1 


/MULTIPLE *’S 
/PRINT HI-ORDER 
/AND LOW-ORDER 

/DIVIDE FIRST BY SECOND 

/PRINT MQ 
/PRINT •.* 

/DIVIDE REtMAINDER TO GET FRACTION 
/JUST PRINT MQ 
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/ TEST OF 

TRIPLE PRECISION PAC 

PAL 8 12/10/71 PAGE 

0263 

1317 

Z004* TAD 

Z035 


'326 4 

7540 

SMA 

3ZA 

/ >91 

0265 

5304 

JMP 

JUT 

/YES 

32 6 6 

1322 

Z307* TAD 

Z 008 


02 6 7 

7510 

SPA 


/.MU. <0? 

02 70 

5304 

JMP 

JUT 

/YES 

0271 

3767 1 

DCA 

TEMPI 

/.MU. SAVE DIGIT 

0272 

1771* 

TAD 

TEMP 

027 3 

7104 

CLL 

RAL 


0274 

7104 

CLL 

RAL 


027 5 

1771 ' 

TAD 

TEMP 


0276 

7104 

CLL 

RAL 

/TEMP* 10 

0277 

17 67 ‘ 

TAD 

TEMPI 

/ADD DIGIT 

0300 

3771 * 

DCA 

TEMP 


3301 

6036 

KRB 



030 2 

4772* 

JMS 

TYJ 

/PRI.MT .MEW DIGIT 

030 3 

5262 

JMP 

LOOP 1 

33 0 4 

7200 

JUT* CL A 



330 5 

1 657 

TAD 

I UET.MUM 

/GET CHAR 

03 0 6 

47 72* 

JMS 

TYJ 


330 7 

7125 

STL 

RAL I AC 


0310 

1255 

TAD 

GETNUM-2 


031 1 

3255 

DCA 

UET.MUM-2 

/SKIP ARG 

3312 

1771 • 

TAD 

TEMP 

/ RETUR.M H 

3313 

5657 

JMP 

I UETNUM 



0314 

0000 

Z302* 

0; 0t 

031 5 

0000 



0316 

0256 



0317 

7777 

Z00 5* 

- 11- U-"9 

0320 

7777 



0321 

7 50 7 



■3322 

0000 

Z003* 

3i 3; ”9 -"0 

03 2 3 

0000 



332 4 

0011 




6 






/ TEST 0F TRIPLE PRECISION PAC 


PAL 8 12/10/71 PAGE 2 


33 6 7 

0 430 



3370 

3433 



037 1 

342b 



0372 

0 440 



337 3 

3630 



037 4 

0446 



03 7 5 

0403 



33 7 6 

0600 



337 7 

6400 


PAGE 

0400 

0000 

OUTPUT* 

• • • 

0401 

322b 


DCA TEMP 

0432 

12S4 

Z3 1 4* 

TAD Z015 

3433 

3222 


DCA COUNT 

3404 

122b 


TAD TEMP 

340 5 

7104 


CLL RAL 

340 6 

3225 


DCA TEMP 

3407 

1225 

0 UT 1 * 

TAD TEMP 

0410 

7036 


RTL 

041 1 

7004 


RAL 

3412 

3225 


DCA TEMP 

0413 

1225 


TAD TEMP 

041 4 

0257 

Z023* 

AND Z02 1 

341 5 

1262 

Z026* 

TAD Z027 

0416 

4240 


JMS TYO 

0417 

2222 


ISZ COUNT 

0420 

5207 


JMP 0UT1 

0421 

5633 


JMP I OUTPUT 

0422 

0000 

CO UN T * 

Z BLOCK 3 

•3425 

0000 

TEMP* 

ZBLOCK 3 

34 3 0 

3000 

TEMPI* 

Z3LJCK 3 

0433 

0000 

TYI * 


043 4 

6031 


KSF 

043 b 

5234 


JMP .-1 

3436 

60 36 


KRB 

0437 

5633 


JMP I TYI 

0440 

3300 

TYO* 


0441 

60 41 


TSF 

0442 

5241 


JMP .-1 

3443 

6346 


TLS 

34 4 4 

7200 


CL A 

044 b 

5640 


JMP I TYO 


3446 

3300 

CRLF* 



34 4 7 

1 265 

Z029* 

TAD 

Z033 

0450 

4243 


JM S 

TYO 

■34 51 

1 270 

Z035* 

TAD 

Z036 

34 52 

4240 


JtfS 

TYO 

04 53 

5646 


J MP 

I CRL 


/12 DIGITS 


/PRINT DIGIT 
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/ TEST JF TRIPLE 


04 S4 

7777 

Z31 5> 

0455 

7777 


0456 

7 7 64 


04 57 

0000 

Z 0 21 * 

0460 

0000 


046 1 

0007 


0462 

3300 

Z09.lt 

3463 

0000 


3464 

0260 


34 6 5 

3000 

Z03 0t 

0466 

3000 


0467 

021 5 


0470 

0030 

Z036* 

1347 1 

3033 


047 2 

0212 



PRECISION PAC PALS 
7777;777717764 

0; 01 7 

0 } 0; M 0 

a; 0 ; 21 5 

a;0;212 


12/10/71 PAGE 2- 1 
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/ TEST OF TRIPLE PRECISION PAC 


PAL3 12/19/71 PAGE 3 





PAGE 

0600 

0330 

MULT* 

• • • 


060 1 

7 3(30 


CL A 

CLL 

O60 2 

127 6 

3047, 

TAD 

iM 45 

0603 

3225 


DCA 

EAESC 

0604 

5212 


JMP 

MUY2 

060 5 

7420 

iM UY 1 * 

SNL 


060 6 

621 1 


J.MP 

. + 3 

0607 

7100 


CLL 


0610 

1 630 


TAD 

I MULT 

061 1 

7010 


RAR 


0612 

7 521 

iM UY2* 

SEP 


061 3 

7310 


RAR 


361 4 

7 521 


SWP 


061 5 

2225 


ISZ 

EAESC 

061 6 

520 5 


J.MP 

■MUY 1 

36 1 7 

3225 


DCA 

EAESC 

0620 

7125 


STL 

I AC HAL 

0621 

17 77 ’ 


TAD 

MULT- 2 

3622 

3777 ‘ 


DCA 

M UL T- 2 

0623 

1225 


TAD 

EAESC 

0624 

5603 


JMP 

I MULT 

3625 

0000 

EAESC* 

ZBLOCK 3 


0633 

0003 

DVI* 



0631 

3270 


DCA 

DTEMP 

3632 

1 630 


TAD 

I DVI 

0633 

3273 


DCA 

DI VI S 

3634 

7125 


STL 

I AC RAL. 

063 5 

1226 


TAD 

DVI - 2 

0636 

3226 


DCA 

DVI - 2 

3637 

127 6 


TAD 

M 45 

3640 

3225 


DCA 

EAESC 

0641 

1273 


TAD 

DI VIS 

06 4 2 

7141 


CIA 

CLL 

06 4 3 

1 270 


TAD 

DTEMP 

064 4 

7 630 


SZL 

CgA 

064 5 

5266 


JMP 

DVI 2 

0646 

1273 

DVI 1, 

TAD 

DIVIS 

■36 4 7 

7041 


CIA 


06 50 

1270 


TAD 

DTEMP 

3651 

7430 


SZL 


06 52 

3270 


DCA 

DTEMP 

3653 

7731 


CL A 

MQA 

3654 

7004 


RAL 


0655 

7421 


<MQL 


0656 

1 273 


TAD 

DTEMP 

06 57 

7004 


RAL 


'06 60 

327 0 


DCA 

DTEMP 

0661 

2225 


ISZ 

EAESC 

0662 

5246 


JMP 

DVI 1 


/MULT TWO 36 BIT NUMBERS 


/37 STEPS 


/BIT SET? 

/YES 

/ ADO MULTIPLICAND TO AC 
/ROTATE AC... 

/AND MQ ( GtTS NEXT BI I IN LlNX> 


/DONE? 

/NO 

/YES. SAVE HIGH ORDER RESULT 
/ 3 

/SKIP ARGUMENT 
/RETRIEVE HIGH ORDER 


/DIVIDE 72-BIT NUMBER BY 36 
/SAVE HIGH ORDER DIVIDEND 

/SAVE DIVISOR 
/ 3 

/SAVE UPDATED RETURN 
/37 STEP COUNT 


/DIVIDE CHECK? 
/YES. RETURN L<>3 
/NO 


/ AC> DI VI SOR? 

/YES. SAVE 
/GET MQ 

/SHIFT iMQ LEFT AND RESTORE 


/SAVE SHIFTED AC 
/ DON E? 

/NO 
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/ TEST OF TRIPLE PRECISION PAC 


PALB 12/10/71 PAGE 3-1 


0663 

1273 


TAD DTEMP 

/YES 

06 6 4 

7010 


RAR 

/CORRECT REMAINDER 

0665 

7410 


SKP 


0666 

1270 

DVI 2# 

TAD DTEMP 

/RETURN WITH HI ORDER 

0667 

5630 


JMP I DVI 

/RETURN 

06 73 

0300 

DTEMP, 

ZBLOCK 3 


'0673 

0000 

DIVIS* 

ZBLOCK 3 


06 7 6 

7777 

M45, 

7777i 7777; 7733 



367 7 777 7 

07 0 3 7 7 3 3 

07 7 7 0 576 


S 



/ TEST OF TRIPLE PRECISION PAC PALB 12/10/71 PAGE 3-2 


COUNT 

0422 

DVI 1 

0646 

LOOP 1 

0262 

MUY2 

0612 

R1 

0250 

TRIPLE 

6400 

Z00 4 

0263 

Z01 5 

0454 

Z029 

0447 


CRLF 

3446 

DVI 2 

0666 

MQA 

7 501 

M45 

0676 

R2 

023 5 

TYI 

0433 

Z035 

0317 

Z020 

3414 

Z033 

0465 


DIVIS 0673 
EAESC 0625 
MQL 7 421 
OUT 0304 
SUP 7521 
TYO 0440 
Z007 0266 

Z021 0457 

Z035 0451 


□ TEMP 0670 
GE TN UM 8257 
MULT 0600 
OUTPUT 0430 
TEMP 0425 
Z001 0242 

Z003 0322 

Z326 0415 

Z036 0470 


DVI 0633 
LOOP 0234 
MUY1 0605 
OUT1 £07 
TEMPI W30 
Z302 0314 

Z014 0402 

Z027 0462 

Z047 0602 
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SUBJECT: TRIPLE precision literal macros 


8-53IB 


FROM: David M. Kristol 

DATE: 2 March 1972 



A set of four 8BAL macros provides literal capabilities for 
assemblies using the triple precision package 'TRIPLE'. Three 
have the basic calling form: 


label OxLIT:inst <lit>name 


where 


x is a one character literal type 

inst is the instruction using the literal (often TAD) •«* 
lit is the literal 

name may be omitted, or, if supplied, may be used later 
as an operand (see examples below) 
label is the label for 'inst' (may be omitted) 


@NLIT -- Numeric Literals 

'lit' may be a sinqle Dositive or negative 36-bit octal number 
Examples: 


@NLIT:TAD<-77> results in the following code: 

Z010, TAD Z011 

and later in the program, 

Z011, 7777;7777;7701 


PLACE, @NLIT:AND <177 7 7> Cl 77 7 results in: 

PLACE, AND Cl 7777 

and later in the Drogram, 

Cl 7777 , 0 ; 1 ; 7777 


Other instructions referencing C17777 should not use the @NLIT 
macro 


OCLIT -- Character Literals 

The first character of 'lit' should be a '-' if the literal 
value will be negative. 

ExamBles : 

@CLIT:TAD<-"9> is legal 
as is 0CLIT:TAD <"9- u 0> 

But, @CLIT:TAD<-"0+"9> will result in an incorrect 
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V 


li teral. 


@SLIT -- Symbolic Literals 

'lit' is a 12-bit symbolic expression. The expression value 
is saved in the high-order part of the 36-bit "word". 

Example: @SLIT:<TABLE> 

DCA POINT 


The fourth macro, @LITS, causes all literals in the present 
literal pool to be dumped, and the pool to be purged. It should 
be used before each new PAGE pseudo-op in PALS to force literals 
onto the same page on which they are referenced. The following 
8BAL statement should be the first in the source program, to 
initialize the 0LITS macro: 

SSSET @LITSET= 
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/ MACROS FOR TRIPLE PRECISION PACKAGE 
/ THIS LINE MUST APPEAR BEFORE FIRST USE 
/ OF ANY OF THE MACRO'S BELOW* 

©SSET @LITSET= 

/ TO INITIALIZE LITERAL POOL 

LAB SDEF @SLIT:INST*LIT* CRSYM SYMBOLIC LITERAL 

@L I T1 : INST* LAB* CRSYM 
@SSET 9CRSYM=LITJ0J0 

SLI T9 

SDEF @LIT1tINST*LAB* PLACE 
LAB* INST PLACE 

SSSET SLITSET=SLITSET* PLACE 

LIT19 

LAB @DEF 9NLIT: INST* LI T# CRSYM NUMERIC LITERAL 

@LI T1 : INST* LAB* CRSYM 
SSET SSI GN = 0 
SSSET ®S=LIT 
@LCS @C=LIT 
91FN E:@"SC-@"-*2» 

SSET SSIGN=1 

@LDEL @S REMOVE SIGN 

SOCT 

9FOUR: T3 
9FOUR: T2 
9FOURJ T1 

91 FEQ* SSI GN* 11 CHECK FOR- 
92SCOMP 

9SSET ®CRSYM=®Tl;9T2*9T3 

NLIT9 


9DEF 92SC0MP 

9SET 0CARRY=0 

9SET 9T3=-@T3 

91FN E* ST3* It 

SSET @CARRY=1 

SSET 0T2=-9T2-1+9CARRY 

SSET 9CARRY=0 

SIFNE* ST 2* 1 » 

SSET §CARRY=1 

SSET 9T1=-@T1-1+©CARRY 

2SC0MP9 


SDEF 9FOUR:NAME 
SSET §C= 4 
SSET ®NAME=0 
SLOOP 
SSET ST=0 
91FNL: §S* 31 
9RCS 9T=9S 
9RDEL SS 

SSET 9T=9"ST-260 
SSET 8NAME=SNAME/10+1000*§T 
SSET ®C= SC-1 
91FGT:SC* 9 

FOURS 
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LI TS@ 


@T# 

GET# 

LAB 


CLIT* 


®DEF #LITS PURGING MACRO 

•LOOP 

@IFNL:0LITSET# 2» 

• GET 

@IFEQt # @ 

0SSET ®LITSET= 


• DEF 9GET 
tSSET ®T= 

0LDEL 0LITSET 
•LOOP 

•LCS •TT=fLITSET 
@1FEQ: •"•TT- •"# # 4* 

•SSET •Ts«T»TT 
9LDEL tLITSET 
•IFNL:0LITSET#1* 

•IFEQj># 

• §T 

•XEC: tSET 9iT«0 RESET 


• DEF ®CLITiINST#LIT# CRSYM 
•LIT1:INST#LAB#CRSYM 
•LCS ®T»LIT 
®IFEQ:0 M 9T-9"-#2t 

•SSET •CRSYMs0i0lLIT 

• SKP: 1 

• SSET ®CRSYM=- li-ULIT 


USED NAME 

FOR CHAR'S 
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